home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 206 / 206.d81 / b.solar quest (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  38 lines
  1. 1 dv=peek(186):if dv<8 then dv=8
  2. 5 poke 53280,0:poke 53281,0:print chr$(14):print chr$(8)
  3. 10 sys57812"sq music player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 15 f$="sinfonia.mus"
  5. 16 sys57812f$,dv,0:poke780,0:poke781,0:poke782,132:sys65493
  6. 20 sys57812"sq unpacker.98",dv,0:poke780,0:poke781,128:poke782,200:sys65493
  7. 25 sys51328,"solar quest.shp",dv,224,204
  8. 30 poke 252,224:poke253,204:sys51459
  9. 35 sys49435:poke781,0:poke782,132:sys49458:poke49152,7
  10. 45 t=ti+2320:poke 198,0
  11. 50 kb=peek(198)
  12. 52 if kb<>0 goto 60
  13. 54 if t<ti then goto 60
  14. 56 goto 50
  15. 60 sys 51459:print "[147][158]"
  16. 62 print tab(12)"[194][207][206][213][211][160][208][207][201][206][212][211]"
  17. 64 print tab(2)"[201]n the [194]lack [200]ole - 100,000 for both"
  18. 66 print tab(8)"drop gates and exit spinner"
  19. 68 print tab(2)"[201]n the [211]mall [211]olar [211]ystem - 40,000"
  20. 70 print tab(8)"for all three drop gates"
  21. 72 print tab(2)"[201]n the [204]arge [211]olar [211]ystem - 10,000"
  22. 74 print tab(8)"for the side drop gates"
  23. 76 print tab(2)"[201]n the [204]arge [211]olar [211]ystem - 5,000 for"
  24. 78 print tab(8)"both knife edge targets(at top)"
  25. 80 print tab(2)"[201]n [207]pen [211]pace - 1,000 for the two"
  26. 82 print tab(8)"spinners and rollover (at left)"
  27. 84 print tab(2)"[193]lso 5,000 for the two kickers"
  28. 86 poke 53265,27
  29. 90 t=t+2000:poke 198,0
  30. 92 kb=peek(198)
  31. 94 if kb<>0 then goto 100
  32. 96 if t<ti then goto 100
  33. 98 goto 92
  34. 100 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49629
  35. 105 print "[147]":poke 214,12:poke 211,15:sys 58732
  36. 106 print "[158]loading..."
  37. 110 load "solar quest",dv,1
  38.